<?xml version="1.0"?>

<st-source>
<time-stamp>From VisualWorks® NonCommercial, 7.6 of March 3, 2008 on April 1, 2009 at 1:50:32 pm</time-stamp>


<class>
<name>RetailerSellItemDialog</name>
<environment>SupplyChain</environment>
<super>UI.SimpleDialog</super>
<private>false</private>
<indexed-type>none</indexed-type>
<inst-vars>numUnit </inst-vars>
<class-inst-vars></class-inst-vars>
<imports></imports>
<category></category>
<attributes>
<package>SupplyChain</package>
</attributes>
</class>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<methods>
<class-id>SupplyChain.RetailerSellItemDialog class</class-id> <category>interface specs</category>

<body package="SupplyChain" selector="windowSpec">windowSpec
	"Tools.UIPainter new openOnClass: self andSelector: #windowSpec"

	&lt;resource: #canvas&gt;
	^#(#{UI.FullSpec} 
		#window: 
		#(#{UI.WindowSpec} 
			#label: 'Retailer Sell Item GUI' 
			#bounds: #(#{Graphics.Rectangle} 640 512 943 827 ) ) 
		#component: 
		#(#{UI.SpecCollection} 
			#collection: #(
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 4 290 ) 
					#name: #retailerSellGUI 
					#label: 'Retailer Sell GUI' ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 3 3 ) 
					#name: #retailerName 
					#label: 'Retailer Name' ) 
				#(#{UI.GroupBoxSpec} 
					#layout: #(#{Graphics.Rectangle} 9 33 149 125 ) 
					#name: #GroupBox1 ) 
				#(#{UI.GroupBoxSpec} 
					#layout: #(#{Graphics.Rectangle} 159 33 299 125 ) 
					#name: #GroupBox2 ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 110 132 ) 
					#name: #unitNum 
					#label: 'Number of Units:' ) 
				#(#{UI.SpinButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 101 156 201 179 ) 
					#name: #numUnit 
					#model: #numUnit 
					#type: #number ) 
				#(#{UI.GroupBoxSpec} 
					#layout: #(#{Graphics.Rectangle} 98 188 202 233 ) 
					#name: #GroupBox3 ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 123 189 ) 
					#name: #totalPrice 
					#label: 'Total Price:' ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 129 209 ) 
					#name: #moneyTotal 
					#label: '$00.00' ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 46 253 127 277 ) 
					#name: #sell 
					#model: #sell 
					#label: 'Sell' 
					#defaultable: true ) 
				#(#{UI.ActionButtonSpec} 
					#layout: #(#{Graphics.Rectangle} 162 254 243 277 ) 
					#name: #cancel 
					#model: #cancel 
					#label: 'Cancel' 
					#defaultable: true ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 37 51 ) 
					#name: #itemSold 
					#label: 'Item Being Sold:' ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 47 81 ) 
					#name: #itemName 
					#label: 'Item Name' ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 185 51 ) 
					#name: #sellPrice 
					#label: 'Sell Price Per Item:' ) 
				#(#{UI.LabelSpec} 
					#layout: #(#{Core.Point} 210 81 ) 
					#name: #moneyPrice 
					#label: '$00.00' ) ) ) )</body>
</methods>

<!-- -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -  -   -->


<comment>
<class-id>SupplyChain.RetailerSellItemDialog</class-id>
<body>@DEPRECIATED
Items are sold one at a time.

Retailer Sell Item Dialog holds the item name being sold, sell price per item, the number of units and the total price. 

Instance Variables:
	numUnit	&lt;ValueHolder&gt;	number of units of the item

</body>
</comment>

<methods>
<class-id>SupplyChain.RetailerSellItemDialog</class-id> <category>aspects</category>

<body package="SupplyChain" selector="numUnit">numUnit
	"This method was generated by UIDefiner.  Any edits made here
	may be lost whenever methods are automatically defined.  The
	initialization provided below may have been preempted by an
	initialize method."

	^numUnit isNil
		ifTrue:
			[numUnit := 0 asValue]
		ifFalse:
			[numUnit]</body>
</methods>

<methods>
<class-id>SupplyChain.RetailerSellItemDialog</class-id> <category>actions</category>

<body package="SupplyChain" selector="sell">sell

	"This stub method was generated by UIDefiner"

	^self</body>
</methods>

<methods>
<class-id>SupplyChain.RetailerSellItemDialog</class-id> <category>initialize-release</category>

<body package="SupplyChain" selector="initialize">initialize
	"Initialize a newly created instance. This method must answer the receiver."

	super initialize.
	" *** Replace this comment with the appropriate initialization code *** "
	^self</body>
</methods>

</st-source>
